ring.yamanashi.ac.jp/pub/pc/freem/action//action.zip/shottank.zip/SHOTE‚s‚`‚m‚j/SHOTE‚s‚`‚m‚j.as.i

Text File | 2004-02-29 | 17KB | 861 lines

##0 "hspdef.as"

























































##0 "SHOTüEésé`éméj.as"
##0 "hgimg.as"





#uselib "hgimg.dll"
#func _hgini hgini 2
#func hgsrc hgsrc 2
#func hgdst hgdst 2
#func hgdraw hgdraw 0
#func hgsync hgsync 2
#func hgbye hgbye $100
#func getsync getsync 1
#func sync sync 0
#func getdebug getdebug 1
#func hgsetreq hgsetreq 0
#func hggetreq hggetreq 1

#func setborder setborder 0
#func clscolor clscolor 0
#func clstex clstex 0
#func setfont setfont 0
#func fprt fprt 6

#func objset1 objset1 0
#func objadd1 objadd1 0
#func objmov1 objmov1 0
#func objsetf1 objsetf1 0
#func objaddf1 objaddf1 0
#func objmovf1 objmovf1 0
#func objcheck objcheck 1
#func objmovmode objmovmode 0
#func objmovopt objmovopt 0

#func objset2 objset2 0
#func objadd2 objadd2 0
#func objmov2 objmov2 0
#func objsetf2 objsetf2 0
#func objaddf2 objaddf2 0
#func objmovf2 objmovf2 0

#func objset3 objset3 0
#func objadd3 objadd3 0
#func objmov3 objmov3 0
#func objsetf3 objsetf3 0
#func objaddf3 objaddf3 0
#func objmovf3 objmovf3 0

#func selmoc selmoc 0
#func selpos selpos 0
#func selang selang 0
#func selscale selscale 0
#func seldir seldir 0

#func objgetfv objgetfv 1
#func objgetv objgetv 1
#func objsetfv objsetfv 1
#func objsetv objsetv 1
#func objaddfv objaddfv 1
#func objmovfv objmovfv 1
#func objgetstr objgetstr 1
#func objact objact 0

#func fvset fvset 1
#func fvseti fvseti 1
#func fvadd fvadd 1
#func fvsub fvsub 1
#func fvmul fvmul 1
#func fvdiv fvdiv 1
#func fvdir fvdir 1
#func fvget fvget 1
#func fvmin fvmin 1
#func fvmax fvmax 1
#func fvouter fvouter 1
#func fvinner fvinner 1
#func fvunit fvunit 1
#func fvface fvface 1
#func fv2str fv2str $11
#func f2str f2str $11
#func str2f str2f 5
#func str2fv str2fv 5
#func f2i f2i 1
#func fsin fsin 1
#func fcos fcos 1
#func fsqr fsqr 1
#func fadd fadd 1
#func fsub fsub 1
#func fmul fmul 1
#func fdiv fdiv 1
#func fcmp fcmp 1
#func froti froti 1

#func setuv setuv 0
#func setsizef setsizef 0
#func setbg setbg 0
#func getbg getbg $83
#func setmap setmap 0
#func addbox addbox 1
#func addplate addplate 1
#func addspr addspr 1
#func addbg addbg 1
#func regobj regobj 1
#func delobj delobj 0
#func setobjm setobjm 0
#func uvanim uvanim 0
#func setmode setmode 0
#func settimer settimer 0
#func setobjmode setobjmode 0
#func setcoli setcoli 0
#func getcoli getcoli 1
#func findobj findobj 0
#func nextobj nextobj 1

#func evmodel evmodel 0
#func setmtex setmtex 0
#func getmtex getmtex 1

#func cammode cammode 0
#func selcam selcam 0
#func selcpos selcpos 0
#func selcang selcang 0
#func selcint selcint 0

#func copybuf copybuf 2

#func mxsend mxsend 1
#func mxconv mxconv 1
#func mxaconv mxaconv 1
#func mxgetpoly mxgetpoly 1
#func mxgetname mxgetname 1
#func settex settex 2
#func gettex gettex 1

#func addmesh addmesh 1




#func modelmovef modelmovef 0
#func modelshade modelshade 0
#func dxfconv dxfconv 1
#func dxfgetpoly dxfgetpoly 1
#func objscanf2 objscanf2 1
#func objscan2 objscan2 1
#func mxsave mxsave 6
#func setmchild setmchild 0
#func setmsibling setmsibling 0
#func getmchild getmchild 1
#func getmsibling getmsibling 1
#func setmfv setmfv 1
#func getmfv getmfv 1
#func getmodel getmodel 1
#func putmodel putmodel 1
#func dupnode dupnode $83
#func gettree gettree 1
#func hgreset hgreset 2
#func mxtex mxtex 1
#func setmuv setmuv 1
#func getmuv getmuv 1
#func nodemax nodemax 1
#func getmpoly getmpoly 1
#func setmpoly setmpoly 1

#func objset1r objset1r 0
#func objmov1r objmov1r 0
#func objset2r objset2r 0
#func objmov2r objmov2r 0
#func objset3r objset3r 0
#func objmov3r objmov3r 0

#func sellight sellight 0
#func sellpos sellpos 0
#func sellang sellang 0
#func sellcolor sellcolor 0
#func selefx selefx 0
#func falpha falpha 0
#func setcolor setcolor 0
#func clsblur clsblur 0





































































goto *_HGIMG_exit

#deffunc hgini int,int



mref p1@hgimg,0
mref p2@hgimg,1
mref bm@hgimg,67
hgmode@hgimg = bm@hgimg.3
_hgini hgmode@hgimg,p1@hgimg,p2@hgimg
return


#deffunc texload str



mref fn@hgimg,32
buffer 3,100,100,hgmode@hgimg
picload fn@hgimg
settex winx,winy
if stat : dialog "Texture Error("+stat+")" : return
return


#deffunc texloadbg str



mref fn@hgimg,32
buffer 3,100,100,hgmode@hgimg
picload fn@hgimg
clstex
settex winx,winy,1
if stat : dialog "Texture Error("+stat+")" : return
return


#deffunc mxload str



mref fn@hgimg,32
mref _mdid@hgimg,64
fname@hgimg = fn@hgimg+".mx"
exist fname@hgimg
if strsize<0 : dialog "file error ["+fname@hgimg+"]" : end
sdim buf@hgimg,strsize
s1@hgimg=""
bload fname@hgimg,buf@hgimg
mxsend buf@hgimg
buffer 3,100,100,hgmode@hgimg
repeat
mxgetname s1@hgimg,cnt : if s1@hgimg="" : break
exist s1@hgimg+".bmp"
if strsize<0 : dialog "No file ["+s1@hgimg+"]" : end
texload s1@hgimg+".bmp"
loop
mxconv mdid
mxgetpoly polys
sdim buf@hgimg,64
_mdid@hgimg = mdid
return


#deffunc maload str


mref fn@hgimg,32
fname@hgimg = fn@hgimg+".ma"
exist fname@hgimg
if strsize<0 : dialog "file error ["+fname@hgimg+"]" : end
sdim buf@hgimg,strsize
bload fname@hgimg,buf@hgimg
mxaconv buf@hgimg
sdim buf@hgimg,64
return


#deffunc dxfload str



mref fn@hgimg,32
mref _mdid@hgimg,64
fname@hgimg = fn@hgimg+".dxf"
exist fname@hgimg
if strsize<0 : dialog "file error ["+fname@hgimg+"]" : end
sdim buf@hgimg,strsize
s1@hgimg=""
bload fname@hgimg,buf@hgimg
dxfconv buf@hgimg
mdid = stat
dxfgetpoly polys
_mdid@hgimg = mdid
return



*_hgimg_exit

##1 "SHOTüEésé`éméj.as"
title "SHOT TANK"
randomize

screen 0,800,600,0,100,70
cls 4:hgini
randomize:âXâeü[âW=0
*start
hgreset

font "élér âSâVâbâN",40
ÄwÆΦ=0:sdim ìÇû┌,20,6
s=0
ìÇû┌="GAME START","EXIT"
buffer 14,0,0:picload "READY.bmp":buffer 13,0,0:picload "LOSE.bmp":buffer 12,0,0:picload "WIN.bmp"
buffer 9,0,0:picload "âXâeü[âWéP.bmp":buffer 10,0,0:picload "âXâeü[âWéPüEéP.bmp":buffer 11,0,0:picload "âXâeü[âWéPüEéQ.bmp"
buffer 8,0,0:picload "â^âCâgâïâìâS.bmp":buffer 4,0,0:picload "âüü[â^ü[.bmp":buffer 5,0,0:picload "âüü[â^ü[éQ.bmp"
buffer 6,0,0:picload "âüü[â^ü[éR.bmp":buffer 7,0,0:picload "âüü[â^ü[éS.bmp"
buffer 15,0,0:picload "âXâeü[âWéQ.bmp":buffer 16,0,0:picload "âXâeü[âWéQüEéP.bmp":buffer 17,0,0:picload "âXâeü[âWéQüEéQ.bmp"
buffer 18,0,0:picload "âXâeü[âWéR.bmp":buffer 19,0,0:picload "âXâeü[âWéRüEéP.bmp":buffer 20,0,0:picload "âXâeü[âWéRüEéQ.bmp"
buffer 21,0,0:picload "âXâeü[âWéS.bmp":buffer 22,0,0:picload "âXâeü[âWéSüEéP.bmp":buffer 23,0,0:picload "âXâeü[âWéSüEéQ.bmp"
buffer 24,0,0:picload "âXâeü[âWéT.bmp":buffer 25,0,0:picload "âXâeü[âWéTüEéP.bmp":buffer 26,0,0:picload "âXâeü[âWéTüEéQ.bmp"
buffer 27,0,0:picload "âXâeü[âWéU.bmp":buffer 28,0,0:picload "âXâeü[âWéUüEéP.bmp":buffer 29,0,0:picload "âXâeü[âWéUüEéQ.bmp"
sndload "music.mid",0,1:sndload "baku.wav",3 :sndload "baku2.wav",4:sndload "music2.mid",5,1:sndload "music5.mid",8,1
sndload "music3.mid",6,1:sndload "music4.mid",7,1:sndload "music6.mid",10,1:sndload "music7.mid",11,1

setsizef 4.5f,4.5f :setuv 0,0,79,79:addplate mdex,1:texload "baku.bmp":uvanim mdex,2,8,1
setsizef 1.5f,1.5f :setuv 0,0,94,94
addplate mdey,1
texload "kemu.bmp"
uvanim mdey,2,10,1
setsizef 10.5f,10.5f :setuv 0,0,79,79
addplate mdez,1
texload "baku.bmp"
uvanim mdez,4,8,1

if âXâeü[âW=0{mxload "eria"
regobj bgchr,stat, $4000
selpos bgchr:objset3 0, 0, 0}
if âXâeü[âW=1{mxload "eria2"
regobj bgchr,stat, $4000
selpos bgchr:objset3 0, 0, 0}
if âXâeü[âW=2{mxload "eria3"
regobj bgchr,stat, $4000
selpos bgchr:objset3 0, 0, 0}
if âXâeü[âW=3{mxload "eria4"
regobj bgchr,stat, $4000
selpos bgchr:objset3 0, 0, 0}
if âXâeü[âW=4{mxload "eria5"
regobj bgchr,stat, $4000
selpos bgchr:objset3 0, 0, 0}
if âXâeü[âW=5{mxload "eria6"
regobj bgchr,stat, $4000
selpos bgchr:objset3 0, 0, 0}
mxload "Ä⌐ï@":model=stat
regobj mychr,model:setcoli mychr,1,8
selpos mychr:objset3 50, 0, 0
if âXâeü[âW=0{mxload "tank2":model=stat
regobj mychr2,model, 32:setcoli mychr2,2,4
selpos mychr2:objset3 -50, 0, 0}
if âXâeü[âW=1{mxload "tank3":model=stat
regobj mychr2,model, 32:setcoli mychr2,2,4
selpos mychr2:objset3 -50, 0, 0}
if âXâeü[âW=2{mxload "tank4":model=stat
regobj mychr2,model, 32:setcoli mychr2,2,4
selpos mychr2:objset3 -50, 0, 0}
if âXâeü[âW=3{mxload "tank5":model=stat
regobj mychr2,model, 32:setcoli mychr2,2,4
selpos mychr2:objset3 -50, 0, 0}
if âXâeü[âW=4{mxload "tank6":model=stat
regobj mychr2,model, 32:setcoli mychr2,2,4
selpos mychr2:objset3 -50, 0, 0}
if âXâeü[âW=5{mxload "tank7":model=stat
regobj mychr2,model:setcoli mychr2,2,4
selpos mychr2:objset3 0, 0, 0}

setuv 0,0,99,99:setsizef 4.0f, 4.0f
addplate ball1,1:texload "tama1.bmp"
if âXâeü[âW=0{addplate ball2,1:texload "tama2.bmp"
}
if âXâeü[âW=1{setuv 0,0,64,64:setsizef 2.5f, 2.5f
addplate ball2,1:texload "tama3.bmp"
}
if âXâeü[âW=2{setuv 0,0,100,100:setsizef 4.5f, 4.5f
addplate ball2,1:texload "tama4.bmp"
}
if âXâeü[âW=3{setuv 0,0,100,100:setsizef 3.0f, 3.0f
addplate ball2,1:texload "tama5.bmp"
}
if âXâeü[âW=4{setuv 0,0,100,100:setsizef 1.5f, 1.5f
addplate ball2,1:texload "tama6.bmp"
}
if âXâeü[âW=5{setuv 0,0,100,100:setsizef 1.5f, 1.5f
addplate ball2,1:texload "tama7.bmp"
}
if âXâeü[âW=5{setuv 0,0,100,100:setsizef 8.5f, 8.5f
addplate ball3,1:texload "tama8.bmp"
}
snd 5
if âXâeü[âW!=0:goto *é═é╢é▀
*â^âCâgâïëµû╩
gsel 0
stick key,ÿAÄ╦*10,1
if s>150 {
ÄwÆΦ+=(key&8>0)-(key&2>0)
if ÄwÆΦ<0:ÄwÆΦ=1
if ÄwÆΦ>1:ÄwÆΦ=0
if key&16:on ÄwÆΦ goto *storyâüâCâô,*exit
}
s+2
repeat 6
strlen Æ╖,ìÇû┌.cnt
palcolor -(cnt=ÄwÆΦ)*200+255
pos -8*10+380,cnt*40+400
mes ìÇû┌.cnt
loop
pos 100,50:gzoom 600,300,8,0,0,400,s
if s>155:s=155
redraw 1:redraw 0:await 40:palcolor:boxf
goto *â^âCâgâïëµû╩

*storyâüâCâô
wait 50
cls 4
goto *é═é╢é▀


*exit
goto *owari

*é═é╢é▀
gsel 0
cls 4
sndoff
repeat 400
color 255,255,255
font "élérü@âSâVâbâN",40
pos 420,400:mes "NOW LODING...."
if âXâeü[âW=1{
font "élérü@âSâVâbâN",70
pos 200,30:mes "SECOND STAGE"
pos 50,100:gcopy 15,0,0,321,185
pos 400,100:gcopy 16,0,0,315,179
pos 100,300:gcopy 17,0,0,300,150}
if âXâeü[âW=0{
font "élérü@âSâVâbâN",70
pos 200,30:mes "FIRST STAGE"
pos 100,100:gcopy 9,0,0,278,142
pos 400,100:gcopy 10,0,0,291,181
pos 100,300:gcopy 11,0,0,300,150}
if âXâeü[âW=2{
font "élérü@âSâVâbâN",70
pos 200,30:mes "THIRD STAGE"
pos 100,100:gcopy 18,0,0,328,204
pos 400,100:gcopy 19,0,0,341,179
pos 100,300:gcopy 20,0,0,300,150
}
if âXâeü[âW=3{
font "élérü@âSâVâbâN",70
pos 200,30:mes "FOUR STAGE"
pos 100,100:gcopy 21,0,0,328,204
pos 400,100:gcopy 22,0,0,341,179
pos 100,300:gcopy 23,0,0,300,150
}
if âXâeü[âW=4{
font "élérü@âSâVâbâN",70
pos 200,30:mes "FIVE STAGE"
pos 100,100:gcopy 24,0,0,328,204
pos 400,100:gcopy 25,0,0,341,179
pos 100,300:gcopy 26,0,0,300,150
}
if âXâeü[âW=5{
font "élérü@âSâVâbâN",70
pos 200,30:mes "FINAL STAGE"
pos 100,100:gcopy 27,0,0,328,204
pos 400,100:gcopy 28,0,0,341,179
pos 100,300:gcopy 29,0,0,300,150
}
await 5
loop
cls 4
*greset
gsel 0
setborder 200.0f,200.0f,200.0f
hp=300:hp2=300
selang mychr:objset1 1,0
selang mychr2:objset1 1,0
time=0:time2=0:time3=0:time4=0:zikan=1:time5=0
if âXâeü[âW=0:snd 0
if âXâeü[âW=1:snd 6
if âXâeü[âW=2:snd 7
if âXâeü[âW=3:snd 8
if âXâeü[âW=4:snd 10
if âXâeü[âW=5:snd 11
*main

repeat
hgdraw
drawf = stat
gmode 2
stick k,15,1
if k&128 : goto *owari
my=mychr:myball=ball1:mycl=4:gosub *keymove
if lani!=myanim : lani=myanim : objact my,lani
if âXâeü[âW=0{if damage : hp-30 : if hp<0 : goto *dead
}
if âXâeü[âW=1{if damage : hp-30 : if hp<0 : goto *dead
}
if âXâeü[âW=2{if damage : hp-35 : if hp<0 : goto *dead
}
if âXâeü[âW=3{if damage : hp-25 : if hp<0 : goto *dead
}
if âXâeü[âW=4{if damage : hp-10 : if hp<0 : goto *dead
}
if âXâeü[âW=5{
if time3>200{
if time3<400{
if damage : hp-10 : if hp<0 : goto *dead
}}}
if âXâeü[âW=5{
if time3>400{
if time3<800{
if damage : hp-5 : if hp<0 : goto *dead
}}}
my=mychr2:myball=ball2:mycl=8:gosub *keymove2
if lani2!=myanim : lani2=myanim : objact my,lani2
if âXâeü[âW=0{if damage : hp2-20 : if hp2<0 : goto *dead
}
if âXâeü[âW=1{if damage : hp2-15 : if hp2<0 : goto *dead
}
if âXâeü[âW=2{if damage : hp2-10 : if hp2<0 : goto *dead
}
if âXâeü[âW=3{if damage : hp2-20 : if hp2<0 : goto *dead
}
if âXâeü[âW=4{if damage : hp2-13 : if hp2<0 : goto *dead
}
if âXâeü[âW=5{if damage : hp2-5 : if hp2<0 : goto *dead
}
if drawf{
redraw 0
pos 20,15:gcopy 5,0,0,300,80
pos 26,43:gcopy 4,0,0,hp-12,46
pos 470,15:gcopy 7,0,0,300,80
pos 476,42:gcopy 6,0,0,hp2-12,46
redraw 1
}
time+1:time2+1:time3+1:time4+1:time5+1
if time>200 :time4=0
rnd r, 7
r = 3 - r
fvseti fv8, r
fvmul fv8, 0.05f
Ä₧è╘+1
hgsync speed
if zikan=1{
pos 250,200:gcopy 14,0,0,300,100
zikan=0:wait 300}
loop
*keymove

damage=0:getcoli a,my,2.5f
if a!=-1 : damage=10
if a!=-1 : snd 3
if a!=-1 : {selpos a :objgetfv po
regobj ob,mdex, 16
selpos ob :objsetfv po
}
if a!=-1 :delobj a

selpos my
objgetv fv:mx=fv.0:mz=fv.2
if k&16 : gosub *myshot
if k&1 : gosub *mymov
if k&4 : gosub *mymov
if k&2 : gosub *mymov
if k&8 : gosub *mymov
return
*keymove2
selpos my
objgetv fv:mx=fv.0:mz=fv.2
if âXâeü[âW=0:if time3>70: gosub *myshot2
if âXâeü[âW=1:if time3>70: gosub *myshot2
if âXâeü[âW=2:if time3>80: gosub *myshot2
if âXâeü[âW=3:if time3>98: gosub *myshot2
if âXâeü[âW=4:if time3>20: gosub *myshot2
if âXâeü[âW=5{if time3>200:if time3<400:if time5>5: gosub *myshot2
}
if âXâeü[âW=5{if time3>430:if time3<800:myball=ball3:if time5>3:fv8=0.0f: gosub *myshot2
}

if âXâeü[âW=0{damage=0:getcoli a,my,2.5f
}
if âXâeü[âW=1{damage=0:getcoli a,my,2.5f
}
if âXâeü[âW=2{damage=0:getcoli a,my,2.5f
}
if âXâeü[âW=3{damage=0:getcoli a,my,2.5f
}
if âXâeü[âW=4{damage=0:getcoli a,my,2.5f
}
if âXâeü[âW=5{damage=0:getcoli a,my,22.5f
}
if a!=-1 : damage=10
if a!=-1 : snd 3
if a!=-1 : {selpos a :objgetfv po
regobj ob,mdex, 16
selpos ob :objsetfv po
}
if a!=-1 :delobj a
if âXâeü[âW=0:if time3>70:time3=0
if âXâeü[âW=1:if time3>70:time3=0
if âXâeü[âW=2:if time3>80:time3=0
if âXâeü[âW=3:if time3>100:time3=0
if âXâeü[âW=4:if time3>20:time3=0
if âXâeü[âW=5:if time3>800:time3=0
if myball=ball2{if time5>5:time5=0
}
if myball=ball3{if time5>3:time5=0
}
gosub *ôGê┌ô«
return
*ôGê┌ô«

selpos mychr2
objgetfv posenemy
selpos mychr
objgetfv posme


fvface posenemy, posme.0, posme.1, posme.2
selang mychr2
objsetfv posenemy


selpos mychr2
objgetfv posenemy
fvsub posme, posenemy.0, posenemy.1, posenemy.2
fvdiv posme, 400f, 400f, 400f
seldir mychr2
objsetfv posme

*mymov
speed=23
if k&2{
if time2>20{
selpos my :objgetfv po
regobj ob,mdey, 16
selpos ob :objsetfv po
time2=0
}}

selpos mychr
objgetfv fv
selang mychr
if k&1 : objaddf1 1,-0.008f
if k&4 : objaddf1 1,0.008f
if k&2 {
objgetfv fv2
fvdir fv2,0.0f,0.0f,0.12f
fvadd fv,fv2.0,fv2.1,fv2.2
}
if k&8 {
objgetfv fv2
fvdir fv2,0.0f,0.0f,-0.1f
fvadd fv,fv2.0,fv2.1,fv2.2
}
fvmin fv, -100.0f, -100.0f, -100.0f
fvmax fv, 100.0f, 100.0f, 100.0f
selpos mychr
objsetfv fv

selang mychr
objgetfv fv_cang
fvadd fv_cang,0.0f, 34.6f, 0.0f
fvmul fv_cang,1.0f,-1.0f, 1.0f
selcang : objsetfv fv_cang

selpos mychr
objgetfv fv_cpos
fvset fv_wk,0.0f,0.0f,0.0f
fsin fv_wk.0,fv_cang.1
fcos fv_wk.2,fv_cang.1
fvmul fv_wk,14.0f,1.0f,14.0f
selcpos
objsetfv fv_cpos
objaddfv fv_wk
objaddf3 0.0f,-5.0f,0.0f
return
*myshot

if time>45 {
regobj shot,myball, 4| $80| 32
setcoli shot,mycl,0
selpos shot:objsetv fv
selang my:objgetfv fv
fvdir fv,0.0f,0.0f,1.2f
seldir shot:objsetfv fv
snd 4
time=0
}
return
*myshot2

rnd ran,8
regobj shot,myball, 4| $80| 32
setcoli shot,mycl,0
selpos shot:objsetv fv
selang my:objgetfv fv
if âXâeü[âW=0{fvdir fv,fv8,0.0f,-1.2f
}
if âXâeü[âW=1{fvdir fv,fv8,0.0f,-1.6f
}
if âXâeü[âW=2{fvdir fv,fv8,0.0f,-1.4f
}
if âXâeü[âW=3{fvdir fv,fv8,0.0f,-1.3f
}
if âXâeü[âW=4{fvdir fv,fv8,0.0f,-1.4f
}
if âXâeü[âW=5{
fvdir fv,fv8,0.0f,-1.4f
}
seldir shot:objsetfv fv
snd 4
return
*dead

zx=0
âXâeü[âW+1
repeat 400
zx+1
if zx>100:zx=100
hgdraw
if hp<0{pos 250,200:gcopy 13,0,0,300,zx
selpos my :objgetfv po
regobj ob,mdez, 16
selpos ob :objsetfv po
delobj mychr:âXâeü[âW=0}
if hp2<0{pos 250,200:gcopy 12,0,0,300,zx
selpos my :objgetfv po
regobj ob,mdez, 16
selpos ob :objsetfv po
delobj mychr2}
hgsync speed
stick k,15,1:if k&128 : goto *owari
selang my:objaddf1 1,0.2f
delobj my
loop:if âXâeü[âW=0:goto *start
goto *start
*owari
hgbye
end